﻿Public Class UrlFile
    Private m_url
    Private m_fileName
    Private m_fileSuffix

    Public Sub New(ByVal p_Url As Object, ByVal p_FileName As Object, ByVal p_FileSuffix As Object)
        m_url = p_Url
        m_fileName = p_FileName
        m_fileSuffix = p_FileSuffix
    End Sub

    Public Property url() As Object
        Get
            Return m_url
        End Get
        Set(ByVal value As Object)
            m_url = value
        End Set
    End Property

    Public Property fileName() As Object
        Get
            Return m_fileName
        End Get
        Set(ByVal value As Object)
            m_fileName = value
        End Set
    End Property

    Public Property fileSuffix() As Object
        Get
            Return m_fileSuffix
        End Get
        Set(ByVal value As Object)
            m_fileSuffix = value
        End Set
    End Property
End Class
